2008/01/31

Recent entries from same category

  1. PerlでWindowsと親和性の高いreadlineが欲しい → あった「Caroline」
  2. Perl をゆるふわと語ろう
  3. cpanfile とは何か、なぜそれを使いたいのか
  4. plackup の --path 引数
  5. Github Notification API が出たので通知を Growl するの書いた。

どなたかのはてなブックマークで、「コメント欄」なんてのを見つけたけど、タイトル見るとどうにも開き辛い...
皆さんそんな事を思った事はありませんか?
そんな時にはコレ!

WWW::CommentGetter
assetsにYAML置いて、URL指定すればコメントがゴッソリ!

/home/user/WWW-CommentGetter/assets/spalog-dotei.yaml
---
handle: http://spalog.net/dotei/.*
comments:
  body: div.dotei03-ct
こんなYAML置いて
/home/user/WWW-CommentGetter/spalog-dotei-comment.pl
use strict;
use warnings;
use Encode;
use WWW::CommentGetter;

my $assets_dir = '/home/user/WWW-CommentGetter/assets';
my $getter = WWW::CommentGetter->new($assets_dir);

use YAML;
binmode STDERR, ':encoding(shiftjis)' if $^O eq "MSWin32";
warn Dump $getter->get('http://spalog.net/dotei/ent_1922.php');
こんなコード書けばコメント欄がゴッソリ!
実行結果は各人で...

tokuhiromさん++
Posted at by